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..r.A simplify (X,Y) :- sim (X.Z), I, simplify (Z.Y). FIG 1 1 
\ simplify (X.X). 

sim(ite(S=S, H, _). H). 
sim(ite(S=T, H, K), ite(T=S,H.K)) :-gt(T,S). 
sim(ite(_,H,H), H). 
sim(ite(E, ite(E,H^), L), ite(E,H,L)). 
sim(ite(E. H, ite(E,_.L)), ite(E,H,L)). 
I102<l! sim(ite(E1, ite(E2.H.K). L). ite(E2, ite(E1.H,L), ite(E1 ,K,L))) :- 
gts(E1,E2). 

sim(ite(E1, H, ite(E2.K.L)). ite(E2. ite(E1,H.K), ite(E1 .H,L))) :- 

gts(E1,E2). 
sim(ite(S=T, H, K), ite(S=T, L. K)) 

gt(S,T),repl(S,T.H,L), H \==L J"^^ 
Qg| sim(ite(A,B,C), ite(A,X.C)) :- sim(B,X). 
1 sim(ite(A,B,C), ite(A,B.X)) :- sim(C,X). 

repl(SJ,SJ) :- !. 
repl(SJ.P,Q) :- 

P = . . [XlArgs], 
..n.A maprepl(S, T, Args. Newargs). 

' '^"^^ Q = . . [XiNewargs]. 

maprepl(_,_,[],[]). 

maprepl(S. T. [X|A]. [Y|B]) :- repl(SJ.X.Y), maprepi (SJAB). 

11 ml 9^'^^=-' '■- 9t(A.c). gt(A.D). 
'"^1 gts(_=B, C=D) :- gt(B.C). gt(B.D). 

depth(P,X) :- atom(P), !, X is 0. 

depth(P,X) :- P =. . [_|Args]. max_depth(Args.Y). X is Y+1. 
max_depth([],0). 

ma)cdepth([A|L].X) :- depth(A,Y), ma)cdepth(L.Z). X is max(Y.Z). 

gt(P,Q) :- depth(P,DP). depth(Q.DQ), DP>DQ. I. 
gt(P,Q) :- P =. . [F|_], Q =. . [gU], F \== G, gtlex(F,G), I. 
gt(P.Q) :- P=. . [F|Args1], Q =. . [F|Args2], gtlist(Args1 ,Args2). 

gtlist([A1|L1],[A2|L2]) :- A1\==A2. !. gt(A1.A2). 
gtlist([_|L1].[_|L2]) :- gtlist(L1 ,L2). 

iiul gMg.O- 

'"^1 gtlex(x1,xO). 
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